home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 090 / cmln0885.arc / SMALTAL2.FIG < prev    next >
Text File  |  1986-02-27  |  2KB  |  31 lines
  1.  
  2.  
  3.                             FIGURE 2: 
  4.   Method for nextGap, sample Filter blocks, and a Spell window
  5.  
  6.  
  7. +Class Hierarchy Browser---------++Workspace-----------------------------------+
  8. | Prompter      |next:put:       ||FILTER BLOCKS FOR CLASS FILTER & WORDFILTER |
  9. | Rectangle     |nextChunk       ||                                            |
  10. | Speller       |nextChunkPut:   ||"Strip all control chars. Assume set CtrlCh"|
  11. | Stream        |nextGap         || [:ch | (CtrlCh includes: ch)               |è|  ReadStream   |nextLine        ||   ifTrue: ['']                             |
  12. |  WriteStream  |nextMatchFor:   ||   ifFalse: [ch]]                           |
  13. |   ReadWriteStr|---------+------||                                            |
  14. |    FileStream |instance |class ||"Capitalize every word in a file"           |
  15. |---------------+---------+------|| [:word :gap | (word replaceFrom: 1 to: 1   |
  16. |nextGap                         ||         with: (String with: (word at: 1)   |
  17. |  "Return string containing the ||                asUpperCase)), gap]         |
  18. |   next interword gap"          ||                                            |
  19. |  |first|                       ||"Output list of unique words. Assume        |
  20. |  first := self position max: 1.|| aSet := Set new. eol := String with: Cr"   |
  21. |  [self atEnd                   || [:word :gap | (aSet includes: word)        |
  22. |    or: [self peek isLetter]]   ||   ifTrue: ['']                             |
  23. |   whileFalse: [self next].     ||   ifFalse: [aSet add: word. word , eol]]   |
  24. |  ^self copyFrom: first         ||                                            |
  25. |              to: self position ||"Mark all misspelled words in a file"       |
  26. +================================+| [:word :gap | (Webster spell: word) , gap] |
  27. +Workspace---------+Suspect word--+                                            |
  28. |                  |hee*_         |"Interactively spell check words in a file" |
  29. |Spell check: 'hee'+==============+ [:word :gap | (Webster check: word) , gap] |
  30. ==================================+============================================+
  31.